home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / For Loops / RFor30K < prev   
Encoding:
Text File  |  1986-10-27  |  229 b   |  16 lines  |  [TEXT/MSBB]
  1. PRINT "RFOr30K..."
  2. PRINT "30,000 empty  REAL loops"
  3.  
  4. start! = TIMER
  5.  
  6. FOR i = 1 TO 30000
  7. NEXT i
  8.  
  9. finish! = TIMER
  10.  
  11. PRINT "finish! = ";finish!
  12. PRINT "start!  = ";start!
  13. PRINT (finish! - start!); " seconds"
  14. WHILE INKEY$ = "" : WEND
  15.  
  16.